home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / FROMUTS / PSION / !Psion / Data / DESK < prev    next >
Text File  |  1990-08-25  |  565b  |  29 lines
  1. DESK:
  2. LOCAL HR%,MN%,MASK%
  3. LOCAL DOT$(1),DATE$(21),LDATE$(21)
  4. ESCAPE OFF
  5. CLS
  6. PRINT CHR$(0);CHR$(1),CHR$(2);CHR$(3)
  7. PRINT CHR$(4);CHR$(5),CHR$(6);CHR$(7)
  8. DO
  9. LDATE$=DATE$
  10. MASK%=NOT MASK%
  11. MN%=MINUTE
  12. HR%=HOUR
  13. DATE$=LEFT$(DATIM$,21)
  14. IF DATE$<>LDATE$
  15. PRINTDIG:(0,HR%/10)
  16. PRINTDIG:(1,HR%-(HR%/10)*10)
  17. PRINTDIG:(2,MN%/10)
  18. PRINTDIG:(3,MN%-(MN%/10)*10)
  19. AT 7,1 :PRINT LEFT$(DATE$,10)
  20. AT 10,2 :PRINT MID$(DATE$,12,4)
  21. ENDIF
  22. DOT$=CHR$((% AND MASK%) OR (% AND NOT MASK%))
  23. AT 3,1 :PRINT DOT$
  24. AT 3,2 :PRINT DOT$
  25. PAUSE -20
  26. UNTIL KEY<>0
  27. ESCAPE ON
  28. RETURN
  29.